home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 19 / 8 / DISK1982.ZIP / FPMOUSE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-03-15  |  4KB  |  109 lines
  1. {------------------------------------------------------------}
  2. {-       FlashPac Pascal Library (Mouse Unit) - V3.5        -}
  3. {-      (c) Copyright 1986-1991 - All Rights Reserved       -}
  4. {-                     SimpleSoft Inc                       -}
  5. {-                     1209 Poplar St                       -}
  6. {-                 La Crescent, MN 55947                    -}
  7. {------------------------------------------------------------}
  8.  
  9. Unit FPMouse;
  10. Interface
  11. {$B-,F+}
  12. {$IFNDEF VER40}
  13. {D-}
  14. {$ENDIF}
  15. Const
  16.    MTextMode : Word = 1;
  17.  
  18. Var
  19.    NEvents   : Word;
  20.  
  21. {--------------------------------------------------------------------}
  22.  
  23. { Function  0 } Function  MResetMouse( VAR NBut : Integer ) : Integer;
  24. { Function  1 } Procedure MShowCursor;
  25. { Function  2 } Procedure MHideCursor;
  26. { Funciton  3 } Procedure MGetPos( VAR ButStat,X,Y : Integer );
  27. { Function  4 } Procedure MSetPos( X,Y : Integer );
  28. { Function  5 } Function  MButtonPress(    Button       : Integer;
  29.                                        VAR ButPress,X,Y : Integer ) : Integer;
  30. { Function  6 } Function  MButtonRel(    Button     : Integer;
  31.                                      VAR ButRel,X,Y : Integer ) : Integer;
  32. { Function  7 } Procedure MSetXRange( Min,Max : Integer );
  33. { Function  8 } Procedure MSetYRange( Min,Max : Integer );
  34. { Function  9 } Procedure MGraphCursor( XHotSpot, YHotSpot,
  35.                                         CMaskSeg, CMaskOfs : Integer );
  36. { Function 10 } Procedure MTextCursor( CType,SMask,CMask : Integer );
  37. { Function 11 } Procedure MGetSpeed( VAR HorCnt,VerCnt : Integer );
  38. { Function 12 } Procedure MInitEventHandler( EMask : Word );
  39. { Function 15 } Procedure MSetSpeed( HorCnt,VerCnt : Integer );
  40.  
  41.                 Procedure MPollQue( VAR Event, ButStat, x, y : Integer );
  42.                 Procedure MRetQue( VAR Event, ButStat, x, y : Integer );
  43.                 Procedure MSetEvent( Event, ButStat, x, y : Integer );
  44.  
  45. {--------------------------------------------------------------------}
  46.  
  47. Implementation
  48. Const
  49.    MaxEvents : Word = 20;
  50.  
  51.    Copyright1 = 'FlashPac Pascal Library (Mouse Unit) - V3.5';
  52.    Copyright2 = '(c) Copyright 1986-1991 - All Rights Reserved';
  53.    Copyright3 = 'SimpleSoft, Inc.';
  54.    Copyright4 = '1209 Poplar St';
  55.    Copyright5 = 'La Crescent, MN 55947';
  56.  
  57. Type
  58.    TMouseEvent = Record
  59.                     MEvent,MButStat : Byte;
  60.                     Mx,My           : Integer;
  61.                  End;
  62. Var
  63.    CEvent    : Word;
  64.    FEvent    : Word;
  65.    MEvents   : Array[1..20] of TMouseEvent;
  66.  
  67. { Function  0   }   {$L mouse\mresetm  }
  68. { Function  1   }   {$L mouse\mshowcur }
  69. { Function  2   }   {$L mouse\mhidecur }
  70. { Function  3   }   {$L mouse\mgetpos  }
  71. { Function  4   }   {$L mouse\msetpos  }
  72. { Function  5,6 }   {$L mouse\mbutinfo }
  73. { Function  7,8 }   {$L mouse\msetxy   }
  74. { Function  9   }   {$L mouse\mgraphcu }
  75. { Function  10  }   {$L mouse\mtextcur }
  76. { Function  11  }   {$L mouse\mgspeed  }
  77. { Function  12  }   {$L mouse\minithan }
  78. { Function  15  }   {$L mouse\msspeed  }
  79.                     {$L mouse\mpollque }
  80.                     {$L mouse\mretque  }
  81.                     {$L mouse\msetevnt }
  82.  
  83. {--------------------------------------------------------------------}
  84.  
  85. { Function  0 } Function  MResetMouse;       External;
  86. { Function  1 } Procedure MShowCursor;       External;
  87. { Function  2 } Procedure MHideCursor;       External;
  88. { Funciton  3 } Procedure MGetPos;           External;
  89. { Function  4 } Procedure MSetPos;           External;
  90. { Function  5 } Function  MButtonPress;      External;
  91. { Function  6 } Function  MButtonRel;        External;
  92. { Function  7 } Procedure MSetXRange;        External;
  93. { Function  8 } Procedure MSetYRange;        External;
  94. { Function  9 } Procedure MGraphCursor;      External;
  95. { Function 10 } Procedure MTextCursor;       External;
  96. { Function 11 } Procedure MGetSpeed;         External;
  97. { Function 12 } Procedure MInitEventHandler; External;
  98. { Function 15 } Procedure MSetSpeed;         External;
  99.                 Procedure MPollQue;          External;
  100.                 Procedure MRetQue;           External;
  101.                 Procedure MSetEvent;         External;
  102.                 Procedure MHandler;          External;
  103.  
  104. {--------------------------------------------------------------------}
  105.  
  106. Begin
  107. end.
  108.  
  109.